﻿Imports System.Windows.Forms

Public Class Menu

    Private Sub TypeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TypeToolStripMenuItem.Click
        Dim frm = New ViewType
        frm.Show()
        frm.MdiParent = Me
    End Sub
    
    Private Sub StoreToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreToolStripMenuItem.Click
        Dim frm = New ViewStore
        frm.Show()
        frm.MdiParent = Me
    End Sub

    Private Sub ProductToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductToolStripMenuItem1.Click
        Dim frm = New ViewProduct
        frm.Show()
        frm.MdiParent = Me
    End Sub

    Private Sub ProductToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductToolStripMenuItem.Click
        Dim frm = New ViewCategory
        frm.Show()
        frm.MdiParent = Me
    End Sub

    Private Sub ProductToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductToolStripMenuItem2.Click
        Dim frm = New ViewStock
        frm.Show()
        frm.MdiParent = Me
    End Sub
End Class
